/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / sillies / _yow / sort

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 20 3e 20 | 53 6f 72 74 0d 00 14 04 |..... > |Sort....|
|00000010| 0d 00 1e 37 e0 3d 90 2d | 26 46 30 30 2b 31 30 30 |...7.=.-|&F00+100|
|00000020| 30 30 30 30 20 3a f4 20 | 53 65 74 20 48 49 4d 45 |0000 :. |Set HIME|
|00000030| 4d 20 74 6f 20 73 69 6d | 75 6c 61 74 65 20 4e 65 |M to sim|ulate Ne|
|00000040| 78 74 20 73 6c 6f 74 0d | 00 28 04 0d 00 32 1e 46 |xt slot.|.(...2.F|
|00000050| 69 6c 65 24 3d 22 3c 59 | 6f 77 24 44 69 72 3e 2e |ile$="<Y|ow$Dir>.|
|00000060| 59 6f 77 4c 69 6e 65 73 | 22 0d 00 3c 21 4e 65 77 |YowLines|"..<!New|
|00000070| 46 69 6c 65 24 3d 22 3c | 59 6f 77 24 44 69 72 3e |File$="<|Yow$Dir>|
|00000080| 2e 4e 65 77 4c 69 6e 65 | 73 22 0d 00 46 08 eb 20 |.NewLine|s"..F.. |
|00000090| 31 32 0d 00 50 04 0d 00 | 5a 31 4d 61 78 4c 69 6e |12..P...|Z1MaxLin|
|000000a0| 65 73 25 3d 31 30 30 30 | 30 3a de 20 50 25 28 4d |es%=1000|0:. P%(M|
|000000b0| 61 78 4c 69 6e 65 73 25 | 29 2c 53 25 28 4d 61 78 |axLines%|),S%(Max|
|000000c0| 4c 69 6e 65 73 25 29 0d | 00 64 0d de 20 57 24 28 |Lines%).|.d.. W$(|
|000000d0| 31 30 30 29 0d 00 6e 2a | 4e 57 25 3d 2d 31 3a f5 |100)..n*|NW%=-1:.|
|000000e0| 20 4e 57 25 2b 3d 31 3a | f3 20 57 24 28 4e 57 25 | NW%+=1:|. W$(NW%|
|000000f0| 29 3a fd 20 57 24 28 4e | 57 25 29 3d 22 22 0d 00 |):. W$(N|W%)=""..|
|00000100| 78 25 f4 20 42 6f 72 69 | 6e 67 20 77 6f 72 64 73 |x%. Bori|ng words|
|00000110| 20 69 67 6e 6f 72 65 64 | 20 69 6e 20 73 6f 72 74 | ignored| in sort|
|00000120| 69 6e 67 0d 00 82 2f dc | 20 41 42 4f 55 54 2c 41 |ing.../.| ABOUT,A|
|00000130| 4c 53 4f 2c 41 4c 57 41 | 59 53 2c 42 45 43 41 55 |LSO,ALWA|YS,BECAU|
|00000140| 53 45 2c 42 45 45 4e 2c | 42 45 49 4e 47 2c 44 4f |SE,BEEN,|BEING,DO|
|00000150| 45 53 0d 00 8c 2a dc 20 | 43 4f 55 4c 44 2c 44 49 |ES...*. |COULD,DI|
|00000160| 44 4e 2c 45 4c 53 45 2c | 45 56 45 4e 2c 45 56 45 |DN,ELSE,|EVEN,EVE|
|00000170| 52 2c 45 56 45 52 59 2c | 46 52 4f 4d 0d 00 96 25 |R,EVERY,|FROM...%|
|00000180| dc 20 47 45 54 53 2c 48 | 41 56 45 2c 48 41 56 49 |. GETS,H|AVE,HAVI|
|00000190| 4e 47 2c 48 45 52 45 2c | 4a 55 53 54 2c 4c 49 4b |NG,HERE,|JUST,LIK|
|000001a0| 45 0d 00 a0 2f dc 20 4d | 41 44 45 2c 4d 41 4b 45 |E.../. M|ADE,MAKE|
|000001b0| 2c 4d 41 4b 45 53 2c 4d | 41 4e 59 2c 4d 49 47 48 |,MAKES,M|ANY,MIGH|
|000001c0| 54 2c 4d 4f 52 45 2c 4d | 4f 53 54 2c 4d 55 43 48 |T,MORE,M|OST,MUCH|
|000001d0| 0d 00 aa 45 dc 20 4d 55 | 53 54 2c 4e 45 56 45 52 |...E. MU|ST,NEVER|
|000001e0| 2c 4f 46 54 45 4e 2c 4f | 4e 43 45 2c 4f 4e 4c 59 |,OFTEN,O|NCE,ONLY|
|000001f0| 2c 4f 56 45 52 2c 53 41 | 49 44 2c 53 48 41 4c 4c |,OVER,SA|ID,SHALL|
|00000200| 2c 53 4f 4d 45 2c 53 4f | 4f 4e 2c 53 54 49 4c 4c |,SOME,SO|ON,STILL|
|00000210| 2c 53 55 43 48 0d 00 b4 | 25 dc 20 54 48 41 54 2c |,SUCH...|%. THAT,|
|00000220| 54 48 45 4d 2c 54 48 45 | 4e 2c 54 48 45 52 45 2c |THEM,THE|N,THERE,|
|00000230| 54 48 45 53 45 2c 54 48 | 45 59 0d 00 be 2e dc 20 |THESE,TH|EY..... |
|00000240| 54 48 49 53 2c 54 48 4f | 53 45 2c 56 45 52 59 2c |THIS,THO|SE,VERY,|
|00000250| 59 4f 55 52 2c 57 41 4e | 54 2c 57 41 53 4e 2c 57 |YOUR,WAN|T,WASN,W|
|00000260| 45 4c 4c 2c 57 45 52 45 | 0d 00 c8 30 dc 20 57 48 |ELL,WERE|...0. WH|
|00000270| 41 54 2c 57 48 45 4e 2c | 57 48 45 52 45 2c 57 48 |AT,WHEN,|WHERE,WH|
|00000280| 49 43 48 2c 57 48 4f 4d | 2c 57 49 4c 4c 2c 57 49 |ICH,WHOM|,WILL,WI|
|00000290| 54 48 2c 57 4f 55 4c 44 | 0d 00 d2 08 dc 20 22 22 |TH,WOULD|..... ""|
|000002a0| 0d 00 dc 04 0d 00 e6 1c | f4 20 4c 6f 61 64 20 74 |........|. Load t|
|000002b0| 68 65 20 66 69 6c 65 20 | 69 6e 74 6f 20 52 41 4d |he file |into RAM|
|000002c0| 0d 00 f0 1d 46 25 3d 8e | 20 46 69 6c 65 24 3a 4c |....F%=.| File$:L|
|000002d0| 25 3d a2 20 23 46 25 3a | d9 20 23 46 25 0d 00 fa |%=. #F%:|. #F%...|
|000002e0| 14 de 20 4d 25 20 4c 25 | 3a 45 25 3d 4d 25 2b 4c |.. M% L%|:E%=M%+L|
|000002f0| 25 0d 01 04 1c ff 20 22 | 4c 6f 61 64 20 22 2b 46 |%..... "|Load "+F|
|00000300| 69 6c 65 24 2b 22 20 22 | 2b c3 7e 4d 25 0d 01 0e |ile$+" "|+.~M%...|
|00000310| 04 0d 01 18 1d f4 20 51 | 75 69 63 6b 20 74 65 73 |...... Q|uick tes|
|00000320| 74 20 66 6f 72 20 61 20 | 6c 65 74 74 65 72 0d 01 |t for a |letter..|
|00000330| 22 0d de 20 4c 25 28 31 | 32 38 29 0d 01 2c 26 4c |".. L%(1|28)..,&L|
|00000340| 25 28 29 3d a3 3a e3 20 | 43 25 3d 97 22 41 22 20 |%()=.:. |C%=."A" |
|00000350| b8 20 97 22 5a 22 3a 4c | 25 28 43 25 29 3d b9 3a |. ."Z":L|%(C%)=.:|
|00000360| ed 0d 01 36 04 0d 01 40 | 18 f1 20 22 53 65 74 74 |...6...@|.. "Sett|
|00000370| 69 6e 67 20 70 6f 69 6e | 74 65 72 73 22 0d 01 4a |ing poin|ters"..J|
|00000380| 04 0d 01 54 46 f4 20 53 | 65 74 20 50 25 28 29 20 |...TF. S|et P%() |
|00000390| 74 6f 20 70 6f 69 6e 74 | 20 74 6f 20 73 74 61 72 |to point| to star|
|000003a0| 74 20 61 6e 64 20 53 25 | 28 29 20 74 6f 20 70 6f |t and S%|() to po|
|000003b0| 69 6e 74 20 74 6f 20 69 | 6e 74 65 72 65 73 74 69 |int to i|nteresti|
|000003c0| 6e 67 20 62 69 74 2e 0d | 01 5e 0e 50 25 3d 4d 25 |ng bit..|.^.P%=M%|
|000003d0| 3a 4e 25 3d 30 0d 01 68 | 05 f5 0d 01 72 1d 20 20 |:N%=0..h|....r.  |
|000003e0| 50 25 28 4e 25 29 3d 50 | 25 3a 57 24 3d 22 22 3a |P%(N%)=P|%:W$="":|
|000003f0| 44 6f 6e 65 25 3d a3 0d | 01 7c 07 20 20 f5 0d 01 |Done%=..|.|.  ...|
|00000400| 86 14 20 20 20 20 43 25 | 3d 3f 50 25 20 80 20 26 |..    C%|=?P% . &|
|00000410| 44 46 0d 01 90 12 20 20 | 20 20 e7 20 4c 25 28 43 |DF....  |  . L%(C|
|00000420| 25 29 20 8c 0d 01 9a 1b | 20 20 20 20 20 20 e7 20 |%) .....|      . |
|00000430| 57 24 3d 22 22 20 53 25 | 28 4e 25 29 3d 50 25 0d |W$="" S%|(N%)=P%.|
|00000440| 01 a4 11 20 20 20 20 20 | 20 57 24 2b 3d bd 43 25 |...     | W$+=.C%|
|00000450| 0d 01 ae 09 20 20 20 20 | cc 0d 01 b8 21 20 20 20 |....    |....!   |
|00000460| 20 20 20 e7 20 a9 20 57 | 24 3e 33 20 44 6f 6e 65 |   . . W|$>3 Done|
|00000470| 25 3d a4 53 69 67 28 57 | 24 29 0d 01 c2 31 20 20 |%=.Sig(W|$)...1  |
|00000480| 20 20 20 20 e7 20 ac 20 | 44 6f 6e 65 25 20 e7 20 |    . . |Done% . |
|00000490| 3f 50 25 3d 30 20 53 25 | 28 4e 25 29 3d 50 25 28 |?P%=0 S%|(N%)=P%(|
|000004a0| 4e 25 29 3a 44 6f 6e 65 | 25 3d b9 0d 01 cc 0f 20 |N%):Done|%=..... |
|000004b0| 20 20 20 20 20 57 24 3d | 22 22 0d 01 d6 09 20 20 |     W$=|""....  |
|000004c0| 20 20 cd 0d 01 e0 0d 20 | 20 20 20 50 25 2b 3d 31 |  ..... |   P%+=1|
|000004d0| 0d 01 ea 0d 20 20 fd 20 | 44 6f 6e 65 25 0d 01 f4 |....  . |Done%...|
|000004e0| 2c 20 20 c8 95 20 50 25 | 3f 2d 32 3a 50 25 2b 3d |,  .. P%|?-2:P%+=|
|000004f0| 31 3a ce 20 3a f4 20 53 | 6b 69 70 20 74 6f 20 61 |1:. :. S|kip to a|
|00000500| 66 74 65 72 20 5c 30 5c | 6e 0d 01 fe 68 20 20 f4 |fter \0\|n...h  .|
|00000510| 20 51 25 3d 50 25 28 4e | 25 29 3a 57 48 49 4c 45 | Q%=P%(N|%):WHILE|
|00000520| 20 51 25 3c 53 25 28 4e | 25 29 20 56 44 55 3f 51 | Q%<S%(N|%) VDU?Q|
|00000530| 25 3a 51 25 2b 3d 31 3a | 45 4e 44 57 48 49 4c 45 |%:Q%+=1:|ENDWHILE|
|00000540| 3a 50 52 49 4e 54 22 2f | 2f 22 3b 3a 57 48 49 4c |:PRINT"/|/";:WHIL|
|00000550| 45 20 3f 51 25 3a 56 44 | 55 3f 51 25 3a 51 25 2b |E ?Q%:VD|U?Q%:Q%+|
|00000560| 3d 31 3a 45 4e 44 57 48 | 49 4c 45 3a 50 52 49 4e |=1:ENDWH|ILE:PRIN|
|00000570| 54 0d 02 08 0b 20 20 4e | 25 2b 3d 31 0d 02 12 26 |T....  N|%+=1...&|
|00000580| 20 20 f1 20 4e 25 3b 22 | 20 22 3b 28 50 25 2d 4d |  . N%;"| ";(P%-M|
|00000590| 25 29 3b 22 2f 22 3b 4c | 25 3b 22 20 22 3b bd 31 |%);"/";L|%;" ";.1|
|000005a0| 33 3b 0d 02 1c 0c fd 20 | 50 25 3e 3d 45 25 0d 02 |3;..... |P%>=E%..|
|000005b0| 26 04 0d 02 30 14 ee 20 | 85 20 d9 20 23 30 3a f6 |&...0.. |. . #0:.|
|000005c0| 3a f1 20 9e 3a e0 0d 02 | 3a 11 4f 25 3d ae 20 4e |:. .:...|:.O%=. N|
|000005d0| 65 77 46 69 6c 65 24 0d | 02 44 21 ff 20 22 53 65 |ewFile$.|.D!. "Se|
|000005e0| 74 54 79 70 65 20 22 2b | 4e 65 77 46 69 6c 65 24 |tType "+|NewFile$|
|000005f0| 2b 22 20 54 65 78 74 22 | 0d 02 4e 04 0d 02 58 35 |+" Text"|..N...X5|
|00000600| f4 20 53 6f 72 74 20 61 | 63 63 6f 72 64 69 6e 67 |. Sort a|ccording|
|00000610| 20 74 6f 20 69 6e 74 65 | 72 65 73 74 69 6e 67 20 | to inte|resting |
|00000620| 62 69 74 20 69 67 6e 6f | 72 69 6e 67 20 63 61 73 |bit igno|ring cas|
|00000630| 65 0d 02 62 14 f1 20 27 | 22 53 6f 72 74 69 6e 67 |e..b.. '|"Sorting|
|00000640| 20 22 3b 4e 25 0d 02 6c | 04 0d 02 76 3b e3 20 43 | ";N%..l|...v;. C|
|00000650| 25 3d 30 20 b8 20 31 32 | 37 20 20 3a f4 20 53 65 |%=0 . 12|7  :. Se|
|00000660| 74 20 75 70 20 6d 61 70 | 20 74 6f 20 66 6f 6c 64 |t up map| to fold|
|00000670| 20 75 70 70 65 72 20 74 | 6f 20 6c 6f 77 65 72 20 | upper t|o lower |
|00000680| 63 61 73 65 0d 02 80 37 | 20 20 4c 25 28 43 25 29 |case...7|  L%(C%)|
|00000690| 3d 43 25 3a e7 20 43 25 | 3e 3d 97 22 61 22 20 e7 |=C%:. C%|>=."a" .|
|000006a0| 20 43 25 3c 3d 97 22 7a | 22 20 4c 25 28 43 25 29 | C%<=."z|" L%(C%)|
|000006b0| 2b 3d 97 22 41 22 2d 97 | 22 61 22 0d 02 8a 05 ed |+=."A"-.|"a".....|
|000006c0| 0d 02 94 04 0d 02 9e 0b | c8 95 20 4e 25 3e 30 0d |........|.. N%>0.|
|000006d0| 02 a8 0c 20 20 4d 69 6e | 25 3d 30 0d 02 b2 13 20 |...  Min|%=0.... |
|000006e0| 20 e3 20 49 25 3d 30 20 | b8 20 4e 25 2d 31 0d 02 | . I%=0 |. N%-1..|
|000006f0| bc 14 20 20 20 20 e7 20 | 49 25 3c 3e 4d 69 6e 25 |..    . |I%<>Min%|
|00000700| 20 8c 0d 02 c6 37 20 20 | 20 20 20 20 4a 25 3d 30 | ....7  |    J%=0|
|00000710| 3a c8 95 20 4c 25 28 4a | 25 3f 53 25 28 49 25 29 |:.. L%(J|%?S%(I%)|
|00000720| 29 3d 4c 25 28 4a 25 3f | 53 25 28 4d 69 6e 25 29 |)=L%(J%?|S%(Min%)|
|00000730| 29 3a 4a 25 2b 3d 31 3a | ce 0d 02 d0 31 20 20 20 |):J%+=1:|....1   |
|00000740| 20 20 20 e7 20 4c 25 28 | 4a 25 3f 53 25 28 49 25 |   . L%(|J%?S%(I%|
|00000750| 29 29 3c 4c 25 28 4a 25 | 3f 53 25 28 4d 69 6e 25 |))<L%(J%|?S%(Min%|
|00000760| 29 29 20 4d 69 6e 25 3d | 49 25 0d 02 da 09 20 20 |)) Min%=|I%....  |
|00000770| 20 20 cd 0d 02 e4 07 20 | 20 ed 0d 02 ee 11 20 20 |  ..... | .....  |
|00000780| 50 25 3d 50 25 28 4d 69 | 6e 25 29 0d 02 f8 21 20 |P%=P%(Mi|n%)...! |
|00000790| 20 f5 20 d5 20 23 4f 25 | 2c 3f 50 25 3a 50 25 2b | . . #O%|,?P%:P%+|
|000007a0| 3d 31 3a fd 20 50 25 3f | 2d 32 3d 30 0d 03 02 2b |=1:. P%?|-2=0...+|
|000007b0| 20 20 4e 25 2d 3d 31 3a | 50 25 28 4d 69 6e 25 29 |  N%-=1:|P%(Min%)|
|000007c0| 3d 50 25 28 4e 25 29 3a | 53 25 28 4d 69 6e 25 29 |=P%(N%):|S%(Min%)|
|000007d0| 3d 53 25 28 4e 25 29 0d | 03 0c 13 20 20 f1 20 4e |=S%(N%).|...  . N|
|000007e0| 25 3b 22 20 22 3b bd 31 | 33 3b 0d 03 16 05 ce 0d |%;" ";.1|3;......|
|000007f0| 03 20 09 d9 20 23 4f 25 | 0d 03 2a 1d f1 20 46 69 |. .. #O%|..*.. Fi|
|00000800| 6c 65 24 2c 3a ff 20 22 | 43 6f 75 6e 74 20 22 2b |le$,:. "|Count "+|
|00000810| 46 69 6c 65 24 0d 03 34 | 23 f1 20 4e 65 77 46 69 |File$..4|#. NewFi|
|00000820| 6c 65 24 2c 3a ff 20 22 | 43 6f 75 6e 74 20 22 2b |le$,:. "|Count "+|
|00000830| 4e 65 77 46 69 6c 65 24 | 0d 03 3e 05 e0 0d 03 48 |NewFile$|..>....H|
|00000840| 04 0d 03 52 0e dd 20 a4 | 53 69 67 28 57 24 29 0d |...R.. .|Sig(W$).|
|00000850| 03 5c 0d ea 20 49 25 3a | 49 25 3d 30 0d 03 66 05 |.\.. I%:|I%=0..f.|
|00000860| f5 0d 03 70 15 20 20 e7 | 20 57 24 3d 57 24 28 49 |...p.  .| W$=W$(I|
|00000870| 25 29 20 8c 3d a3 0d 03 | 7a 0b 20 20 49 25 2b 3d |%) .=...|z.  I%+=|
|00000880| 31 0d 03 84 0c fd 20 49 | 25 3d 4e 57 25 0d 03 8e |1..... I|%=NW%...|
|00000890| 06 3d b9 0d ff          |                         |.=...   |        |
+--------+-------------------------+-------------------------+--------+--------+